home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / C / Applications / MacPerl 5.1.3 / Mac_Perl_513_src / MacPerl5 / MakeMacPerlTest < prev    next >
Encoding:
Text File  |  1996-10-20  |  919 b   |  35 lines  |  [TEXT/MPS ]
  1. Perl -Sx "{0}" {"Parameters"}
  2. Exit 0
  3. #!perl
  4.  
  5. print <<'END_HEADER';
  6. tell application "MacPerl"
  7.     with timeout of 300 seconds
  8.         activate
  9.         set m to Do Script "MacPerl::Reply(\"$ENV{MACPERL}\")"
  10.         set p to Do Script "MacPerl::Reply(\"$ENV{MACPERL}t\")"
  11. END_HEADER
  12.  
  13. while ($script = shift) {
  14.     $script =~ s/^:t//;
  15.     
  16.     print "\t\tDo Script \"print \\\"----- $script" . '.' x (20 - length($script)) . "\\\\n\\\"\"\n";
  17.     
  18.     print "\t\ttry\n";
  19.     if ($script =~ /cpp/) {
  20.         print "\t\t\tDo Script (p & \"$script\") directory p with preprocess\n";
  21.     } else {
  22.         print "\t\t\tDo Script (p & \"$script\") directory p\n";
  23.     }
  24.     print "\t\ton error\n\t\t\t-- ignore\n\t\tend try\n";
  25. }
  26.  
  27. print <<END_FOOTER;
  28.         Save front Window in file (m & ":MacPerlTest.Out")
  29.         delete text in front Window
  30.         Do Script {(p & ":TEST"), "evaluate", (m & ":MacPerlTest.Out")}
  31.         Save front Window in file (m & ":MacPerlTest.Result")
  32.     end timeout
  33. end tell
  34. END_FOOTER
  35.